entier
entier(ex,carac)
Func
Local qa,ca,oter_int
Define oter_int(qa,ote)=Func
Local qb,qx,qy
string(qa)àqb
string(floor(ote))àqy
If dim(qb)<9 Then
      Goto fin
EndIf
For qx,1,dim(qb)-dim(qy)
      If mid(qb,qx,dim(qy))=qy Then
            left(qb,qx-1)&string(ote)&right(qb,dim(qb)-qx-dim(qy)+1)àqb
      EndIf
EndFor
Lbl fin
expr(qb)
EndFunc
string(carac)àca
ex|#ca=int(qz)àqa
oter_int(qa|qz=#ca,#ca)
EndFunc